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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 =o OO i a ok dk kok i doko tok ok 00000D 118 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
yo * * O0000E 119 READ1 EOQU 14 READ WITH FUNCTION BIT 3 ON SVC 
5 * * kx PREREQUISITES * RK * OO000F 120 RSTAT EQU 15 READ STATUS SVC 
6 * * 000010 121 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
7 * NONE * 000011 122 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
8 * ok 000012 123 CTRL EQU 18 CONTROL SVC 
0 IC III IO IR CC IG i tok gai idkok kk tc lek ok tok ke kok ato a 000013 124 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 
10 * 1 000014 125 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
11 * KK MODIFICATIONS KKK x 000015 126 HIO EQU 21 HALT ALL I/0 
12 * * 000016 127 REOSD EQU 22 REQUEST USE OF DCP DISK SVC 
13 * NONE x 000017 128 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
14 * * 000018 129 HALT EQU 24 HALT SVC 
15 RRR III IIR IGG IC IIR ii Ro i tok kk dete ote ak ak 000019 130 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
16 * ok OOOO1A 131 TOE EOU 26 HEX TO EBCDIC SVC STRING 
17 * KK REA'S INCORPORATED KKK * 00001B 132 ATOH EOQU 27 ASCII TO HEX SVC TRING 
18 * * 00001C 133 HTOA EQU 28 HEX TO ASCII SVC TRING 
19 * NONE x 00001D 134 ETOA EQU 29 EBCDIC TO ASCTI SVC (STRING 
20 * * OOO00TE 135 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 
21 CIO IO 2 I I ICR lo i RO i iio igkoikiot kak fe atta oka ate ofc at a OOOO1F 136 READI EQU 31 READ DATA TS MDI/OTIL 
22 * * 000020 137 WRITI EQU 32 WRITE DATA SETS FOR OUTIL 
93 * tok SPECIAL INSTRUCTIONS kk * 139 eo Ori oR OK gO ok IO OR RI ROR I FO IO IO IG ok kok ke tok ok doi toe ak 
24 * * 140 * * 
2° NONE * ce : EQUATES USED BY TU*S AS CONSTANTS : 
* 
27 eR I RO RII RII ICO tok tok kk Rok i ako dk oto loko tede ok tote ai ec teak 143 ex oR RK eR a Ko ok a ok aa kkk fk kick tote ok kk tok ok 
28 * * QOOO4E 144 PLUS EQU C+! PLUS CHAR 
29 * % KK E. C. HISTORY Kk & x 000060 145 MINUS FOU cr—? MINUS CHAR 
ie o20cn78 = 883888 142 us? Eu 3 
* DATE O20CT DATE DATE DATE * 
32 * E.C. 375102 E.C. Esc. E.C. x 000002 149 TWO EQU 2 
33 * * 000003 150 THREE EQU 3 
QJ I I aR Rk ke aki ate akc ak ake af ae ate ae ate ak ic ie ake ake a akc fe kee eae ae ak ok ic oi akc akc ae afc 3 000004 151 FOUR EQU 4 
36 OO oR doko kok iok lok lok look dakok icici loiuita kick tokotok kot kote ke ak ek 000005 152 FIVE EQU 5 
37 * DEFINE CONSTANT AREA FOR PROGRAM I.D. U7AF * 000006 153 SIX EQU 6 
CET ST CSL CSS STS SSL CSS SOCSCSCSCSSLSCSCS CCT CCS COLSCSCCSCSOCCS COLL S PSST SL SS LSS LS ST 2 000007 154 SEVEN EOQU 7 
001800 39 UJAF2 START xX'1800' PROGRAM START ADDRESS 000008 155 EIGHT EQU 8 
001800 F7C1C6F2 4O PID DC C*7AF2! PROGRAM NAME 000009 156 NINE EQU 9 
001804 0000 41 DC X100008 LEVEL QOOOOOA 157 TEN ah 10 
001806 1D12 42 STADDR DC A eat START EXECUTION ADDRESS O0O0000B 158 ELEVN EQU 11 11 
001808 1812 43 DEVPT DC A (DEVTAB) POINTER TO DEV TABLE 00000C 159 TWELV FOU 12 12 
00180A 0000 44 RTNE DC A (0 ROUTINE NUMBER 00000D 160 THRIN EQU 13 13 
00180C 0000 45 CKPT DC A (0 CHECKPOINT NUMBER OO000F 161 FIVIN EQU 15 15 
OO180E 00000000 46 DC vue } OPTION WORD ONE AND TWO 000010 162 SIXTN EOU 16 16 
001812 c001 47 DEVTAB DC x*coott START OF DEVICE TABLE 000020 163 THRY2 EQU 32 32 
001814 0000 4&8 DEVADD DC X'QO000! DEVICE ADDRESS AND TYPE 000040 164 STXT4Y EQU 64 64 
001816 0000000000000000 49 ASSIGN DC XL8*"00! DEVICE DEPENDENT DATA 000080 165 ONE28 EQU 128 128 
00181E 7A 50 TYP7A DC X'7A! DEVICE TYPE FOR THIS PROGRAM 000100 166 THO56 EQU 256 256 
001820 0009 51 @ETOH DC A 9) EBC TO HEX CONTROL BLOCK 000400 167 ONEK EQU 1024 1024 
001822 1830 52 @ETOH1 DC A {INAREA FROM DATA ADDRESS 000800 168 TWOK EQU 2048 2048 
001824 186C 53 @OETOH2 DC A(SERIAL TO DATA ADDRESS 000C00 169 THREK EQU 3072 3072 
001826 Q0Cc0 54 DC X*O00CO! CONTROL BYTE FOR OUTIN CONTROL BLOCK 001000 170 FOURK EQU 4096 4096 
001828 183C 55 dOUTIN DC A ae ADDRESS OF MESSAGE FFFFFF 172 M1 EO -1 -1 
00182A 1830 56 DC A (INAREA) ADDRESS OF INPUT AREA FFFFFE 173 M2 EQU -2 -2 
00182c 0009 57 DC A(9 LENGTH OF INPUT DATA FFFFFD 174 3 EQU ~3 -3 
00182E 0000 58 DC A (0 TYPE OF INPUT EBC) FEFEEC 175 M4 EQU -4 -4 
001830 404040K 0404040404 59 INAREA DC ce ' OUTIN INPUT AR 177 #3 RRR IO FRO OI OR FR ROK Bok RRR a FOR IR IR RO ORI EO RR RR Rt a die ak 
00183A TAF1 60 Dc X"7AF1! STOP CODE FOR REQUEST OF DEV. ADD. 178 * * 
00183C FUFOFE6F34O0E2C5C34 61 MSG DC C'4963 SEC ID RESTORE, ENTER DEV ADDR AND DE ID.'* 179 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
00186A 00 62 pc x00? 180 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
00186C 000000000000 63 SERIAL DC 3A (*-* 181 * * 
64 * THE FOLLOWING C'S ARE TO SATISFY THE $ERRS ROUTINE 1 BD RR KK RH He he KK A He eK He He eK I Ke eK he oe He He IK KK eI He HK ee eae ee ft he 2h ie he ie he ae ok eo ke oe ke KK Kk KK 
001872 1904 65 TUMSGWTR DC A (OMSGWTR) ADDRESS OF ABORT MESSAGE WRITER 000000 183 BSO EQU 0 
001874 0000 66 TUSTATUS Dc A a DUMMY TU STATUS 000001 184 BS1 EOU 1 
001876 LKOUOYOLOLO4OEOYOY 67 TUWORK DC 128Ct ¢ WORK AREA FOR ABORT PRINTAREA 000002 185 BS2 EQU 2 
0018F6 0000 68 @DCADD1 DC A (0 DUMMY POINTER 000003 186 BS3 EQU 3 
0018F8 0000 69 @DCADD2 DC A (0 DUMMY POINTER 000004 187 BS4& EOU 4 
OO18FA 0000 70 SUPSTAT DC A(0 DUMMY STATUS AREA 000005 188 BS5 EQU 5 
0018FC 0080 71 aOUT1 DC x'o0o8sor CONTROL BYTE FOR OUT CONTROL BLOCK 000006 189 BS6 EQOU 6 
0018FE 0000 72 oOOUT DC A (9) ADDRESS OF MESSAGE 000007 190 BS7 EQU 7 
001900 TAF2 73 Dc X'7AF2° STOP CODE FOR ABORT MESSAGE 000008 191 BS8 EQU 8 
001902 0000 74 ABMSG DC xX*O0000!8 DUMMY ABORT MESSAGE 000009 192 BSY EQU 9 
15 * OOOOOA 193 BS10 EQU 10 
7T6 * THE FOLLOWING ROUTINE WILL OUTPUL *** ABORT*¥*** MSG 00000B 194 BS11 EQU 11 
77 * 00000C 195 BS12 EQU 12 
001904 6908 1D06 78 @MSGWTR MVW DC2PT,R1 ADDRESS OF MESSAGE AREA 00000D 196 BS13 EOU 13 
001908 0102 719 ABI TW O,R4 POINT R1 AT FIRST LINE LENGTH OOO00E 197 BS14 EOU 14 
OO190A CA55 80 MVWZ am + Ee LOAD R2 WITH LENGTH OOO0O0F 198 BS15 EQU 15 
enede aon es es MVW Veco Me MOVE pre EER Ghoot eee ean BLOCK 200 - 
+ 
neveae Mera Nee COF2 ae aye x6 Pa ee 2 Peae Appeeee an PENTLOL BLORE 202 FRI GIG Faia idk acto 72 8/7 8 aR $k 
00191A 6000 84 SVC ISSUE SVC 203 * 
rae oye ii ae ABI EIGHT,R1 BUMP R1 ce : DCB TABLES AND DC's 
501025 GAS Ape Bs aye PTeHT RG orne oeoao Taaee a eer 206 332 oR a RO oO oi oto img iO io i i iO lak dak detec ae kegeate ak 
001926 cCA55 88 MSGWIR1 MVWZ abe R2 LOAD LENGTH OF MESSAGE 207 * 
001928 690D 18FE 89 MVW R1 our LOAD ADDRESS OF MESSAGE INTO BLOCK 208 * 
00192C 4724 18FE 90 MVA aout, R7 LOAD ADDRESS OF BLOCK 209 ***** WRITE SECTOR ID ** NO AUTO SEEK 
001930 6000 91 svc OUT ISSUE SVC 210 * 
001932 0128 92 ABI X'28" R141 BUMP TO NEXT LINE 00194C 002D 211 WSDCB DC X'O002D! WRITE SECTOR ID CNTL WORD 
001934 BCF8 93 JCT MSGWTR1,R4 BRANCH FOR COUNT O0O0194E 0000 212 DC x’ 00008 FG/SEC 
001936 4020 18FC 00CO 94 MVWI X'00CO',a0UT1 CHANGE CONTROL BYTE 001950 0000 213 DC A (*-* HD/CYL 
00193C 4020 18FE 1902 95 MVA ABMSG aout LOAD ADDRESS OF ABORT MESSAGE 001952 0000 214 DC A (*-* NO USED 
001942 4724 18FE 96 MVA d0UT,R7 LOAD ADDRESS OF CONTROL BLOCK 001954 22E0 215 DC A RSE RSB_ ADDRESS 
001946 6000 97 SVC OUT ISSUE SVC 001956 0000 216 DC A (*-* CHAIN ADDRESS 
001948 6802 1B9E 98 B SCONX BRANCH TO END 001958 0004 217 DC x" 000 BYTE COUNT 
99 * 00195A 0000 218 DC Ae) ADDR OF SECTOR ID DATA 
100 [ORO OI IC IO OO OR ii ok lok io ok doko doko ak 219 * 
101 * * 220 ***** SEEK DCB **®**** kx 
102 * EQUATED NAMES FOR SUPPORTED SVC'IS * 221 * 
103 * * 00195C 0000 222 SKDCB DC X*'0000° SEEK DCB 
104 RIO RII IO III IG II IO IOI OR IO I I ROI IR I i toa teak tc ac Q00195E Q000 223 DC X*Q0008 FG/SEC 
000000 105 ouT EQU 0 OUT SVC 001960 0000 224 DC Ft'o? HD/CYL 
000001 106 OUTIN EQU 1 OUTIN SVC 001962 0000 225 DC F'o! 
000002 107 IDLE EOU 2 IDLE svc 001964 =22E0 226 DC A teow RSB ADDRESS 
000003 108 IDLE5 EOQU 3 IDLE SVC - INDEPENDENT OF CPU IYPE 001966 0000 227 DC A (*-*) CHAIN ADDRESS 
000004 109 CHNGE EQU 4 CHANGE LEVEL SVC 001968 0000 228 DC FtQ! NOT USED 
000005 110 PGMCK EOU 5 ALLOW RETURN ON PROGRAM CHECK SVC 00196A 0000 229 DC Ftd? NOT USED 
000006 111 EXIT EOU 6 EXIT SVC 230 * 
000007 112 TERM EQU 7 TERMINATE SVC 231 ***** CYCLE STEAL STATUS DCB **#ek# 4% 
000008 113 RESET EQU 8 RESET DEVICE SVC 232 * 
000009 114 RID EQU 9 READ ID svc 00196C 2000 233 CSDCB DC Xx*2000° CONTROL WORD 
OOOOOA 115 START EQU 10 START CYCLE STEAL SVC 00196E 0000 234 DC F'or NOT OSED 
00000B 116 STCSS EQU 11 START CYCLE STEAL STATUS SVC 001970 0000 235 DC F'o? NOT USED 
00000C 117 PREP EQU 12 PREPARE DEVICE SVC 001972 0000 236 DC Ftot NOT USED 
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001974 0000 237 DC F'ot NOT USED 0019DA 0000 354+CST13 DC A (*~*) CS STATUS WD 12, AND 3 + WRAP BYTE 
001976 0000 238 DC For NOT USED 322% 
001978 OQOO1A 239 pc X'OO1A 13 WORDS OF STATUS 0019DC 0000 6+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS OSED 
00197A 19C2 240 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 0019DE 00000000 357+$DATA DC 2A (*—-* OPTIONAL DATA 
241 * 0019E2 0021 329tSTNTL DC Xx*0021! INTERRUPT LEVEL REQUESTED 
242 * 0019E4 0000 3 3+ TURIN DC A (*—*) TEST UNIT RETURN ADRS TO MDI 
243 **** WRITE SECTOR ID SKEWED NO AUTO SEEK 0019E6 00 3604#+$DVID DC Or DEVICE ID 
244 * 0019E8 4oiy 361+#SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
00197C 002F 245 WKDCB DC X'OO2F* CONTROL WORD OO19EA 000 362+ DC A (*-*) IBIS CYLINDER ADDRESS 
00197E 0000 246 pc X¥*0000' FG/SEC 363+* 
001980 0000 247 DC A (*-* HD/CYL 364+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
001982 0000 248 pc A (*~* NOT USED 365+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
001984 22E0 249 Dc A(RSBA) RSB ADDRESS 366+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
001986 0000 250 pc A (*-* CHAIN ADDRESS 367+ 
001988 0004 251 DC xfoooder BYTE COUNT 0019EC 4020 19A2 7A02 368+T7A02 MVWI X'7A02',$TUID SET UP TEST ONIT ID 
00198A 0000 322 : pc A (*-*) ADDR OF SECTOR ID DATA 0019F2 5700 a07' Bxs (R7) RETURN TO MDI SUPVR 
254 **** WRITE MULTIPLE SECTOR IDS 4K 372 * 
255 * 373 * EXECUTE INPUT & OUTPUT COMMANDS 
00198C 002D 256 WMDCB DC x'*002D! CONTROL WORD - NO AUTO SEEK 374 * TO EXECUTE ALL I/0 COMMANDS FROM A COMMON PLACE 
00198E 0000 257 Dc F'ot FLAG/SECTOR 375 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
001990 0000 258 pc x*0000° HEAD/CYLINDER 376 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
001992 0000 259 Dc x*00008 SCAN COUNT 34) * SUPVR CALL. 
001994 2250 260 DC A(RSBA) RSB_ ADDRESS 378 * . 
001996 0000 261 pc A (*-* CHAIN ADDRESS 379 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
001998 0084 262 pc x"ooske BYTE COUNT See * : 
00199A 22F6 263 DC A(IDOO) DATA AREA ADDRESS 381 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
264 * 5 382 8 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
DIT 
00199C 0000 SOUL OPENT pc x'oo0o0!8 PROGRAM OPTION CONTROL WORD 1 382 : THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
+ e 
00199E 0000 269+ OPTN2 DC OOOO cs PROGRAM OPTION CONTROL WORD 2 338 od 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 
+ e 
000010 271+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 388 * 2 BAL SWKEW,RE WRITE SECTOR ID SKEWED 
000011 272+BU49 EQU 17 1 rT * 389 x ‘ 
000012 273+8B50 EOU 18 2 2 * THESE BITS ARE USED WITH THE 390 * 3 BAL SHSEC,R6 WRITE SECTOR ID 
O00048 syerB2} | EQUA 3 § + BE ASSIGHED BY PACH PROCREMT GR 332 * 4 BAL  SDTAG,RE DIAGNOSTIC 
g 
000015 276+B53 EOU 21 5 4 * 393 * 3 
000016 277+B54 EQU 22 6 2 * 394 * 5 BAL XIOCS ,R6 CYCLE STEAL STATUS 
000017 278+B55 EOU 23 7 1 * 395 * a 
000018 279+B56 EOU 24 8 8 Ey 396 * 6 BAL $SSEEK ,R6 SEEK 
000019 280+B57 EQU 25 9 4 * 397 * é 
0O0001A 281+B58 EQU 26 10 2 * 398 * 7 BAL SRECL,RO RECALI BRATE 
00001B 282+B59 EQU 27 11 1 % 399 * i 
00001C 283+B60 EQU 28 12 8 1 400 * 8 BAL SRDID,R6 READ SECTOR ID 
00001D 284+B61 EOU 29 13 4 x 4Q1 * 
00001E 285+B62 EQU 30 14 2 te 4O2 * 9 BAL $RD,R6 READ 
00001F 286+B63 EQU 31 15 1 * 4Q3 * ° 
QOOO001E 287+CH EQU 30 14 2 CHARACTER SUPPLIED 404 * 10 BAL  $RDVY,R6 READ VERIFY 
O0001F 288+CMP BQU 31 15 1 COMPARE OPERATION 4QO5 * . 
0019A0 0000 299+ OPTN3 D X¥*0000! PROGRAM OPTION CONTROL WORD 3 186 . 11. BAL SWRT ,R6 WRITE 
292+* QO MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs 408 * 12 BAL SUTIN, RG WRITE MULTI SECTOR IDS 
293+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 4O9 * 
294+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 410 * 13. BAL SWRTO,RO WRITE DPC COMMANDS 
295+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 441 * 
296+* 0019F4 4020 1B26 195C 412 S$SEEK HVA SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
297+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 0O0O19FA 500C 443 J XIO 
298+* 5 HARD ERROR FOUND HE 13. OTO CC ERROR Tocc 414 x* 
299+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN uq5 * 
300+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR tTncc 0019FC 4020 1B26 198C 416 $HTIM MVA HMUDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
301+* BIT HEX 001A02 5008 “47 J XIO 
000020 3024MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 418 * 
000021 303+ER EOU 33 1 4 ERROR RECEIVED ON INTERRUPT 001A04 4020 1B26 197C 419 S$WKEW AVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC ZALL 
000022 3044+XI EOU 34 2 2 EXPECTED INTERRUPT CONTROL BIT OO1A0A 5004 420 J XIO 
000023 305+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 421 * 
000024 306+XE EQU 36 rr 8 EXPECTED ERROR RESPONSE 0OO1A0C 4020 1B26 194C 422 $WSEC AVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
000025 307+HE EQU 37 5 rm HARD ERROR, 8 RETRIES 001A12 5000 423 J XIO 
000026 308+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 424 * 
000027 3094#NT EQU 39 7 1 NO INTERRUPT EXPECTED E 425 * 
0000 28 310+4+CS EQU 4Qo 8 8 CYCLE STATUS IN PROGRESS 426 We He Ne Be He He ae He He he oe He he fe af he he a5 ae 2 fe ae A Se ee ae hee he He He he He He hee he hee he ah ae he ee ae she oe oe ok oe eke Kk KK DG TUL 7 6K * 
000029 311+#CSA EQU 44 9 rT CYCLE STEAL AVAILABLE 427 * 
O0002A 312+CE EOU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 428 * SUB~ROUTINE 
00002B 313+ISBON EOU 43 11 1 ISB BITS ON (1-7 429 * 
00002c 3144NG FOU Tar 12 B TEST ONIT RESULTS NO GOOD 430 * EXECUTE INPUT AND OUTPUT COMMANDS 
00002D 315#IO0cc EQU 45 13 4 OTO CC ERROR 431 * 
00002E 316+NOIN EOQU 46 14 2 NO INTERRUPT 432 * PURPOSE 
00002F 317+INCC EOU u7 15 1 INTERRUPT CC ERROR 433 * 
318+* 434 * TO EXECUTE ALL I/O COMMANDS FROM A COMHON PLACER. 
a COMMON BUFFER FOR PRINTING DATA ree ‘. THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
+ 
0019A2 0000 322+$TUID DC A (*-% TEST UNIT IDENTIFICATION 437 * 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
0019A4 0000 323+$IOIN DC A (*—* £40 AND INTR CONDITION CODES 438 * THE I/0 COMMAND. 
0019A6 0000 3244+$ISB DC A (*-* R INTR STATUS BYTE §& DEV ADRS 439 * 2. SAVES THE DCB BLOCK USED UNLESS If IS A START CYCLE STAIrUS 
001948 0000 325+LSTIO Dc A (*-% ADRS OF LAST T/O + 4 BYTES Guo * ISSUED BY THIS SUBROUTINE. 
OO19AA 0000 326+DEV1 DC A (*-* DEVICE DEPENDENT DATA Huq * 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
0019AC 0000 327+#DEV2 DC A (*—-% * W“42 * START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
0019AE 0000 328+DEV3 DC A (k—-* Py W4u3 * 4“. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
0019B0 0000 329+#DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC Qu SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
OO19AA 330+SCTID EOU DEV1 READ ID BUFFER FOR IBIS & TERN 445 * HYSTERY INTERRUPT (MI aGont ROL BIT IS SET. 
0019B2 331+#DCBUF EQU * DCB BUFFER FOR LAST DCB USED W46 * 5. MOVES THE ADDRESS OF r/9, CONTROL BLOCK IN R7 SEz THE 
0019B2 0000 332+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD YU] % EXPECTED INTERRUPT f oTBOL IT AND ISSUE THE 'své ART?, 
0019B4 0000 333+DCB2 Dc A (*—* LAST DCB TABLE, DEV DEP WORD , 4us x 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE 1/0 COMMAND. TIMING 
0019B6 0000 3344+DCB3 Dc A (*~* LAST DCB TABLE, DEV DEP WORD Gug * STARTS TO DETERMINE A LOST INTERRUPT. 
0019B8 0000 335+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 450 * 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
0019BA 0000 336+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 451 * HAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
0019BC 0000 337+DCB6 DC A (*-%* LAST DCB TABLE, CHAIN ADRS 452 * 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
0019BE 0000 338+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 453 * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
0019C0 0000 339+DCB8 pC A (*¥-%* LAST DCB TABLE, BUFFER ADDRESS YS * 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
340+x Y55 x 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
0019C2 341+CSBUF EQU cs CYCLE STEAL DATA BUFFER 456 * 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
0019C2 0000 3424CSTL1 D A (*¥- STA HD 0, RESIDUAL ADDRESS Y57 * ISSUED BY THIS SUBROUTINE. 
0019c4 0000 3434+CSTL2 DC A (*-* CS STATUS HD 1, RESIDUAL COUNT 4598 * 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
0019C6 0000 3444CSTL3 DC A (*-% CS STATUS WD 2, RETRY CNT WD 1 459 * CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
0019c8 0000 345+CSTLY DC A (*-* CS STATUS HD 3, RETRY CNT WD 2 460 * COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
0019CA 0000 3464+CSTLS DC A (*- CS STATUS WD 4, ERROR STATUS WD 1 461 * 
0019CC 0000 347+#CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 462 * CALLING SEQUENCE 
0019CE 0000 3484+CSTL7 DC A (*-* CS STATUS HD 6, LAST DCB ADDRESS 463 * 
0019D0 0000 349+CSTL8 DC A (*- CS STATUS HD 7, PREVIOUS HD/CYL 464 *% THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
0019D2 0000 350+CSTLO DC A (*- CS STATUS WD 8, CURRENT HD/CYL 465 * 
0019D4 0000 351+CST10 DC A (*- CS STATUS WD 9, FLAG/SECTOR 466 * --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
0019D6 0000 352+CST11 DC A (*—* CS STATUS WD 16, HEAD/CYLINDER 467 * --> BAL XIO0O1 MOD PARM PRELOADED IN 'tomob® 
0019D8 0000 353+CST12 DC A (*- CS STATUS WD 11, DIAG BYTES 1, 2, 468 * --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
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469 * --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 586 * INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH TL 
470 * . AND DOES NOT POST INTERRUPT STATUS) 587 x 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 
u71 * 588 * 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
472 * RETURN CONTROL 589 * 5= ATTENTION / PROGRAM CNTL INTR S= INV STG ADRS TL 
473 * 590 * 6= ATTENTION 7 EXCEPTION INTR 6= PROTRCT CK IL 
u74 * BXS R6, 2) RETURN TO USER NO ERROR 591 * J= ATTENTION / DEVICE END INTR 7J= I-FACE DATA IL 
475 * OR B R6{ * RETURN AND RETRY ON ERROR 592 * TL 
476 PS SPS SSLESESSSESLESSS SS SLE SSE SES SSL ESSE SSS SETS SSL SSE SS SL SESS LS SF SES ESS SP TS SS | 001A92 JO6E 593 INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 TL 
001A14 CB25 1B28 478 XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 001A94 336A 594 SRL 13,R3 POSITION INDICATORS IN R3 TL 
001A18 5SOOE 479 J XI01 CS I/O'S ARE NOT RETRIED 001A96 4424 199C 595 MVA OPTN1,R4 SET UP BASE ADRS TL 
480 * OO1A9A 4C28 596 TBT (Ra c§) TS CS IN PROGRESS IL 
001A1A 4020 1B28 O00OD 481 XIODG MVWI xX*OOOD',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 001A9C 1006 597 JOFF INntES * NO TI. 
001A20 5SOOA 482 J XIO1 TO CS OPS OO1A9E 4C6A 598 TBTS (Ra CEY TURN ON CYCLE STEAL INTER ERROR TL 
4u83 * 001AA0 6FOD 19B0 599 MVW 7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 TL 
001A22 4ACAA 484 TBTR R4, cE RESET CS STATUS INTER ERROR INDICAT. OO1AA4 C328 19B1 600 MVB  R3,DEV4+41 * AND THE COND CODE IL 
001A24 4C68 485 TBTS SET 'CYCLE STEAL STATUS' IN PROGRESS OO1AA8 SOOA 601 J INTR1 IL 
001A26 4020 1B26 196C 486 XIOCS MVA Spe, ODCB SET UP CONTROL BLOCK FOR SVC CALL OO1AAA 4C24 602 INTES TBT cpa XE) TEST EXPECTED ATTEN / ERROR IND TL 
OO1A2C 4020 1B28 OOOF 487 MVWI X* 0008", TOMOD SET CYCLE STEAL MODIFIER QO1TAAC 1002 603 JOFF NTET BCH IF NOT EXPECTED IL 
OO1A32 4C28 488 TBT (nd S) TS CS IN PROGRESS, ERROR CONDITION OO1AAE F304 604 CBI 4, R3 IS THIS AN "ATTENTION! INTR TL 
0O1A34 1213 489 JON To 5 * YES, BYPASS SAVING I/O ADRS 0O1ABO 1006 605 JE INtR1 * YES, BCH TO END INTR SEQUENCR TL 
001A36 6EOD 19A8 490 XIO01 MVW®  R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED OO1AB2 4C61 606 INTET TBTS (Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
OO1A3A 4324 1982 491 MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLF OO1AB4 5004 607 J NTR1 TL 
OO1A3E 6D08 1326 492 MVW TODCB, Rd * AND THE FROM ADRS, ALONG WITH 608 * THE ERROR INTERRUPT USES THE SAME IL 
OO1A42 OFIA 493 MVBI 26 * THE NUMBER OF MOVES 609 * ENDING SEQUENCE AS THE NORMAL INTR IL 
OO1TA44 2D64 ugg MVFEN (85), $83) MOVE 1 STATUS WORD AND ADJUST 611 Me He he Ke he ae a fe 3 IK He a he 3 ae ake ae a ae fe ae ke oe a oe He oe oe I i eK KK KKK KK KKK KKK KKKKKK TU APRTETIL 
OO1A46 OBFF 495 MVBI 255.8 CLEAR CYCLE STATUS BUFFER 612 * TI 
00O1A48 4524 19c2 496 MVA CSBOF,R5 * TO ALL ONES 613 * SOUBROUTINE IL 
OO1A4C OFTA 497 MVBI 26,R7 * 614 * TL 
OO1A4E 2BAC 498 FFN R3 SR 5) * 615 * OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL* IL 
001850 4020 19A4 0708 499 MVWI x'6708",$IOIN OVERLAY OLD CONDITION CODES 616 * IL 
001856 CB25 1926 500 . MVWZ $ISB,R3 ZERO OUT OLD TSB VALUE 617 * PURPOSE TL 
OO1A5A 4CA1 502 TBTR (R4,ER RESET ANY ERROR BEFORE I/O COMMAND 619 * TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
OO1A5C 4CA3 503 xIo2 TBTR (R4-IN CLEAR INTERRUPT RECEIVED CNTL BIT 620 * TL 
OO1A5E 4724 504 MVA OBLK,R7 SET UP CONTPOL BLOCK FOR SUPVR 621 * CALLING SEQUENCE TI 
001A62 4CA6 505 TBTR (RG, SLE) RESET LEVEL ERROR INDICATOR 622 * IL 
OO1A64 4C62 506 TBTS (RO, XT) SET EXPECTED INTR CONTROL BIT 623 * SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
001A66 600A 507 SVC TART CALL SUPVR FOR 1/0 COMMAND 624 * THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 
508 * 625 * AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
001A68 4CAT 509 TBTR (R4,NT) IS AN INTR EXPECTED 626 * COMMON SECTION IS HANDLED HERE. IL 
001A6A G6ACO 0002 510 BN R6, 2) * NO, RETURN TO USER 627 * IL 
511 * 628 * RETURN CONTROL IL 
512 * THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 629 * IL 
513 * 630 * SVC EXIT RETURN TO USER VIA SUPVR TL 
001A6E 4524 0000 514 VI SET UP WORK REG FOR "LOST INTR! 631 * TL 
O001A72 UCA3 515 XTO8 TBTR (Ra IN) HAS INTERRUPT BEEN RECEIVED 632 He He ee ie ee oe a ie ee ae oe ae ae He i 2 ie a ie he he ae Oe Hee He fe a Be ae ah ee ae eh che a i oa i he ae i ae oc ke oe he ae ak he Ke he ae ek eT OT 
OO1A74 1239 516 JON T * YES, CHECK IF ALL WAS SATISFACTORY 001AB6 706E 633 INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
001A76 6002 517 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO1AB8 336A 634 SRL 13,R3 POSITION INDICATORS IN R3 TL 
518 SUPVR WILL RETURN HERE OO1TABA 4424 199C 635 MVA OPfN1,R4 SET UP BASE ADRS TL 
001A78 6002 519 SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN OO1ABE 4C63 636 INTR1 TBTS (R4,IN SET INTERRUPT RECEIVED IL 
520 * SUPVR WILL RETURN HERE 001ACO 4¢C28 637 TBT R4-CS rs, ‘cs IN PROGRESS ON TL 
OO1A7A 7DA1 0001 521 AWL 1 485 ADVANCE TIME OUT COUNT OO1AC2 1204 638 JON wth? BCH AROUND UPDATE IL 
| OO1A7E 18F9 522 INZ BCH IF TIME OUT NOT REACHED OO1AC4 C328 19A5 639 MVB R3,SIOIN+1 SAVE StNTERRUPTING CC CODE IL 
001A80 4cC61 523 TBTS £08 ER) SET ON ERROR CONTROL BIT OO1AC8 6FOD 19A6 640 MVW  R7,SISB SAVE INTR STATUS AND DEV ADRS IL 
001A82 68D2 0000 524 (Rae ERR 'NO INTERRUPT? 001ACC 641 INTR2 FOU #* TL 
526 So GAW CREAR ch RWS EES eda a eee 642 CPCL R5 CURRENT LEVEL COPIED BY DCP TL 
527 * OO1ACC 3521 643 SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
528 * SUBROUTINE OO1ACE 0501 644 ABT 1° R5 * IN "I! BIT TL 
529 * OO1AD0 CD24 1982 645 CW $iNTL,RS IS THIS THE CORRECT INTR LEVEL TL 
530 * I/O EXECUTE ERROR HANDLING ROUTINE OO1AD4 1002 646 JE INTR3 * YES, GO EXIT THIS LEVEL IL 
531 * OO1AD6 4C66 647 TBTS (R4,$LE) SET INTR LEVEL ERROR CONTROL BIT ITIL 
532 * PURPOSE OO1AD8 4C61 648 TBTS (R4)ER SET ERROR ON 1/0 COMMAND CNTL BIT TL 
533 * OO1ADA 4CA2 649 INTR3 TBTR (R4LXT WAS INTERRUPT EXPECTED TL 
534 * THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE OO1TADC 1204 650 JON NTRX * YES, EXIT OFF THIS INTR LEVEL TL 
535 * PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THR OO1TADE 4C60 651 TBTS gra MT) * NO, SET MYSTERY INTR CONTROL BIT IL 
536 * SUPERVISOR AND If WAS NOT ACCEPTED. OO1AEO F304 652 CBI ,R3 ATTENTION INTERRUPT? TT 
537 * OO1AE2 1001 653 JE INTRX YES TL 
538 * CALLING SEQUENCE OO1AE4 4C6C 654 TBTS (Ri NG) ERROR UNEXPECTED INTERRUPT IL 
539 * OO1AE6 6006 655 INTRX SVC XIt THIS LEVEL VIA SUPVR TO PGM IL 
2a9 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 657 EE POE SOE EET Pee EET EE PETE PETC ET TRE eee re rrr a Snr AE eer ors 
8 * 
542 * RETURN CONTROL 659 * THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
543 * 660 * HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
o44 * B (R6) * RETURN TO USERS ERROR HANDLFR een : RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
546 He he he He he he oe ae ae he af 3h fk he fe fe she she she ae ah he fe ae ae ae he of hc he he hc oh i he ik oe aie he oe he hc He a i ae oe ie ae ae ie oe i fe he he oe eo OK KK eke 663 * 
547 * OO1AE8 4CA4 664 XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 
548 * CC O= DEVICE NOT ATTACHED OO1AEA 6ACO 0002 665 BN RG ¢ 2) * YES, EXIT THTS ROUTINE 
549 * FOR 1= DEVICE BUSY OO1AEE 4CAB8 666 TBTR (R4,CS) WAS | AfitO CS IN PROGRESS 
550 * I/0 2= DEVICE BUSY AFTER RESET OO1AFO 1006 667 JOFF xXIo0cv - CONTINUE CHECKING 
551 * 3= COMMAND REJECT OO1AF2 4C2A 668 TBT (Ra CR) Nes IN AN ERR CONDITION 
552 * = INTERVENTION REQUIRED OO1AF4 1002 669 JOFF xXI0CO . NO BCH 
553 * = INTERFACE DATA CHECK OO1AF6 68D2 0000 670 B R6) * cs ERRO 
554 * 6= CONTROLLER BUSY OO1AFA 4C69 671 xIOcO TBTS (R4,CSA) TURN ON Ros STATS AVAIL FLAG 
555 * 7= I/O COMMAND EXCEPTED OO1AFC 5601 672 BXS R6 52) GO TO USER 
556 * OO1AFE 4C21 673 XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
001A86 706E 557 XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 001B00 100D 674 JOFF xXrO0CcX * NO, EXIT THIS ROUTINE 
001A88 336A 558 SRL 13,R3 POSITTON CC CODE TO BITS 13-15 t 675 * 
OO1A8A C328 1924 559 HVS R3,S10IN * PUT IN LOG OUT AREA 001B02 C520 19A5 676 MVB $IOIN+1,R5 GET LAST INTR CC CODE 
OO1A8E 68D2 0000 560 (RO) * RETURN TO USER ERROR HANDLER 001B06 F502 677 CBI 2,R5 Ts THIS CC=2 
562 pease caeseses FO OG Go GO oR doiioioi took i tock 1 4A PRT 6 * 001B08 1003 678 JE xfoco ES 
563 * TL OO1BOA F506 679 CBI 6,R5 te THIS CC=6 
564 * SUB-ROUTINE IL 001B0C 68D1 0000 680 BNE (Re) * * NO, BCH TO ERROR HANDLER 
565 * TL 001B10 C520 19A6 681 XIOCQ MVB ISB,R5 Get faST ISB DATA BYTE AND IF 72S 
566 * ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL 001B14 6A00 1A22 682 BN Xroc§-4 * AVAILABLE, GO AND GET IT 
567 * TL 001B18 68D2 0000 683 B (RO) ERROR 
568 * PURPOSE IL 001B1C CB25 19A0 684 XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
569 * IL 001B20 5601 685 BXS (R6,2) RETURN TO USER VIA REG 6 
570 * THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TL 686 * 
571 * OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 687 * I/O PARAMETER LIST 
572 * EXPECTED CODE. IL 688 * 
573 * TL 001B22 1814 689 IOBLK DC A(DEVADD) ADRS OF DEVICE ADRS 
574 * CALLING SEQUENCE Tr 001B24 1A86 690 DC A(XIOER) ERROR ROUTINE ADRS 
575 * Ir 001B26 0000 691 IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
576 * SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 001B28 0000 692 TOMOD DC A (#-* MODIFIER 
577 * IL 001B2A 0000 693 DC A (*-* ADRS OF LAST SVC CALL 
518 * RETURN CONTROL TL 001B2Cc 0000 694 TORSP DC hk SECOND WORD OF LAST IDCB 
580 ‘ SVC EXIT PETURN TO USER VIA SUPVYR IL 696 + INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
582 [A GO OO OC a ICC Oc io ogiciiciiokiekoicgcdc dak ik dick tcdok eT 7, OO1B2E 1814 698 INTBL DC A (DEVADD) ADRS OF DFVICF ADRS 
583 * IL 001B30 1AB6 699 DC R {TNTORY INTERRUPT OK RETURN ADRS 
584 * CC O= CONTROLLER END ISB O= ADD STATUS IL 001B32 1A92 700 DC A INTER INTERRUPT ERROR ADRS 
585 * FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 001B34 0003 701 INTCC DC X'O003' INTERRUPT CODE EXPECTED 
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FOR THE 496 


SOURCE STATEMENT 
; DC A (*-*) 
DC x'008 
RD6  ~=—DC C'O7AD6! 
i DC A (*-*) 
DC x'00° 
RD7 DC C'O7ADT7! 
: DC R (*-*) 
DC X'00' 
RD8 DC C'O7AD8* 
: DC A (*-*) 
DC x00" 
RD9 DC C'O7AD9! 
: DC A (#-*) 
DC X'00'% 
RDA DC C'O7ADAt 
: DC (*-*) 
DC X'00' 
RDB DC C*O7ADB! 
‘ DC A (*-*) 
DC X'00! 
RDC DC C*'O7ADC! 
. DC A (¥-*) 
DC X'00! 
RDD DC C'O7ADD* 
: DC A (#-*) 
DC X00! 
RDE DC C'O7ADEt 
A DC (*-*) 
DC "OO! 
RDF DC C'O7ADF® 
DC —-_ A (#-*) 
* 
* 
END 
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BLOCK 
CONTOL BLOCK 
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DECLARED 
728 
786 
762 


358 
323 
324 
308 
412 
322 
419 
422 
416 
68 
69 
51 
78 
72 
55 
71 
74 
49 
791 
992 
956 
816 
1003 
1038 
1238 


811 
1000 
279 
282 
283 
312 
125 
310 
311 
341 
233 
346 
1234 
331 
812 
1139 
1140 
48 
47 
326 
329 
155 
1258 
303 


130 
111 
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NAME 

$CONC 
SCONX 
$SERR$S 


SINTL 
SIOIN 
$ISB 
$LE 

$S EEK 
$TUID 
SWKEW 
SWS EC 
SWTIM 
@DCADD1 
@DCADD2 
@ETOH 
O@MSGWIR 
@OUT 
@OUTIN 
@OUT1 
ABMSG 
ASSIGN 
BEGIN 
BIGF 
BIGM 
BITO080 
BLD1 
BLD2 
BLK 


BUFPT 
BUILD 
B56 
B59 
B60 
CE 
CICsB 
CS 
CSA 
CSBUF 
CSDCB 
CSTL5 
DATAA 
DCBUF 
DC2PT 
DEID 
DEID1 
DEVADD 
DEVTAB 
DEV1 
DEV4 
EIGHT 
EIGHS8 
ER 


ETOH 
EXIT 
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RESS. 
ESS. 
RESS. 
RESS. 
RESS. 
RESS. 
RESS. 
8 
RESS. 
RESS. 
RESS. 
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RESS- 
RESS. 
RESS. 
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ATTRIBUTES AND REFERENCES 


HEX LOCATION (00001836) 
HEX LOCATION (00001B9E) 


IN 
IN 


HEX et generqage ah IN 
941 950 992 1010 


1158 1169 1171 
HEX LOCATION (0000192) 


HEX LOCATION (00001944) 
HEX LOCATION (000019A6) 
HEX VALUE (00000026) 
HEX LOCATION (000019 F4) 
HEX LOCATION (00001942) 
HEX LOCATION (00001A04) 
HEX LOCATION (00001A0C) 
HEX LOCATION (000019FC) 
HEX LOCATION (000018 F6) 
HEX LOCATION (000018F8) 
HEX LOCATION (00001820) 
HEX LOCATION (00001904) 
HEX LOCATION (000018 FE) 
HEX POCATION (00001828) 
HEX LOCATION (000018FC) 
HEX LOCATION (00001902) 
HEX LOCATION (00001816) 
HEX LOCATION (00001 BA8) 
HEX LOCATION (00001DEE) 
HEX LOCATION (00001DFE) 
HEX VALUE (00000080) 
HEX LOCATION (00001E9C) 
HEX LOCATION (00001F1A) 


HEX LOCATION (000022B0 
1194 1195 


HEX LOCATION (00001D04) 
HEX LOCATION (00001E8E) 
HEX VALUE (00000018) 
HEX VALUE (00000018) 
HEX VALUE (0000001C) 
HEX VALUE (0000002a) 
HEX VALUE (00000014) 
HEX VALUE(00000028) 
HEX VALUE(00000039) 
HEX LOCATION (000019C2) 
HEX LOCATION (0000196C) 
HEX LOCATION (000019CA) 

946 948 
HEX LOCATION (00002296) 
HEX LOCATION (000019B2) 
HEX LOCATION (00001D06) 
LOCATION (00002042) 


LOCATION (000020A4) 


1197 119 


1182 


IN 
IN 
IN 


IN 
IN 


IN 
IN 
8 

IN 
IN 


EX Boo ape gaa IN 
698 787 912 14 


HEX LOCATION (00001812) 
HEX LOCATION (000019AA) 
HEX LOCATION (00001980) 
HEX VALUE(00000008) 

HEX LOCATION (000022D8) 
HEX VALUE (00000021) 
HEX VALUE (00000019) 
HEX VALUE(00000006) 


IN 
IN 
IN 


IN 


940 


CSECT (U7AF2 
CSECT (U7TAF2 
CSECT (UTAF2 
1012 1045 
1184 

CSECT (U7TAF2 
CSECT (U7TAF2 


CSECT (UTAF2 


CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (UTAF2 
CSECT (U7AF2 
CSECT (UTAF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 


N CSECT(U7AF2 
N CSECT (U7AF2 


CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (UTAF2 


CSECT (U7AF2 
CSECT (UTAF2 


CSECT (UTAF2 
1199 ©1201 


CSECT (U7AF2 
CSECT (U7AF2 


CSECT (U7AF2 
CSECT(U7AF2 
CSECT (UTAF2 
CSECT(U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (UTAF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 
CSECT (U7AF2 


CSECT (U7AF2 


1011 1046 
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1047 
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122 
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LENGTH (4) 
LENGTH (1) 
LENGTH (6) 


LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (6) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (8) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 


LENGTH (6) 
LENGTH (6) 
LENGTH (2) 


LENGTH (2) 
LENGTH (6) 


LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (31) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
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DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1264 EXIT1 ADDRESS. HEX LOCATION (000022EC) IN CSECT(U7AF2 ) LENGTH(4) 771 MVBUF ADDRESS, HEX LOCATION (00001B6C) IN CSECT(U7AF2 ) LENGTH(2) 
814 PAKETU ADDRESS. HEX LOCATION (00001D0A) IN CSECT(U7AF2 ) LENGTH(2) 314 NG ABSOLUTE. HEX VALUE(0000002Cc) 
1247 FGSEC ADDRESS. HEX LOCATION (000022C2) IN CSECT(U7AF2 ) LENGTH(2) 309 NI ABSOLUTE. HEX VALUE (00000027) 
1235 FILL ADDRESS. HEX LOCATION (00002298) IN CSECT(U7AF2 ) LENGTH(23) 1259 NINES ADDRESS. HEX LOCATION(000022DA) IN CSECT(U7AF2 ) LENGTH(2) 
1255 FIVES ADDRESS. HEX LOCATION (000022D2) IN CSECT(U7AF2 ) LENGTH(2) 1251 ONE1 ADDRESS. HEX LOCATION(000022CA) IN CSECT(U7AF2 ) LENGTH(2) 
1254 FOURY ADDRESS. HEX LOCATION (000022D0) IN CSECT(U7AF2 ) LENGTH(2) 267 OPTN1 ADDRESS. HEX LOCATION (0000199C) IN CSECT(U7AF2 ) LENGTH(2) 
934 FXD ABSOLUTE. HEX VALUE (00000018) 290 OPTN3 ADDRESS. HEX LOCATION(000019A0) IN CSECT(U7AF2 ) LENGTH(2) 
937. 953 957 960 1025 1029 684 
1248 HDCYL ADDRESS. HEX LOCATION (000022c4) IN CSECT (U7AF2 ) LENGTH (2) 105 OUT ABSOLUTE. HEX VALUE (00000000) 
962 964 968 1003. 1008 1014 1018 1024 1027 84 91 7 1128 1131 1189 1208 
1031 1038 1043 1049 1050 1064 1153 1165 1178 106 OUTIN ABSOLUTE. HEX VALUE (00000001) 
1230 HEAD ADDRESS. HEX LOCATION(0000227C) IN CSECT(U7AF2 ) LENGTH(2) 909 
1188 1192 PHD ADDRESS. HEX LOCATION(00002182) IN CSECT(U7AF2 ) LENGTH(4) 
1246 HEADS ADDRESS. HEX LOCATION (000022C0) IN CSECT(U7AF2 ) LENGTH(2) 1209 
952 954 956 (958 1016 1187 PHDD ADDRESS. HEX LOCATION(0000216E) IN CSECT(U7AF2 ) LENGTH(4) 
1231 HEAD4 ADDRESS. HEX LOCATION(0000227E) IN CSECT(U7AF2 ) LENGTH(21) 907 
1230 1210 PHD2 ADDRESS. HEX LOCATION(000021D6) IN CSECT(U7AF2 ) LENGTH(4) 
820 HEBLK ADDRESS. HEX LOCATION(00001D0C) IN CSECT(U7AF2 ) LENGTH(2) 1187 
763 1244 PHYNU ADDRESS. HEX LOCATION (000022BC) IN CSECT(U7AF2 ) LENGTH(2) 
131 HTOE ABSOLUTE. HEX VALUE (00000018) 1162 1166 1173 
764 1196 1200 1204 40 PID ADDRESS. HEX LOCATION(00001800) IN CSECT(U7AF2 ) LENGTH(4) 
993 HO48 ADDRESS. HEX LOCATION(00001E78) IN CSECT(U7AF2 ) LENGTH(4) 82 779 
971 979 98 815 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 
995 H159 ADDRESS. HEX LOCATION(QOOOO1E7E) IN CSECT(U7AF2 ) LENGTH(4) 779 
973. 981 989 117 PREP ABSOLUTE. HEX VALUE (0000000C) 
997 H26A ADDRESS. HEX LOCATION (00001E84) IN CSECT(U7AF2 ) LENGTH(4) 733 
975 983 1212 PRINT ADDRESS. HEX LOCATION(000021DA) IN CSECT(U7AF2 ) LENGTH(10) 
999 H37 ADDRESS. HEX LOCATION(00001E8A) IN CSECT(U7AF2 ) LENGTH(4) 894 1190 
977 985 1261 PRNT ADDRESS. HEX LOCATION(000022DE) IN CSECT(U7AF2 ) LENGTH(2) 
1125 IBSR ADDRESS. HEX LOCATION(00002054) IN CSECT(U7AF2 ) LENGTH(4) 1190 1194 1207 
1103. 1123 1243 RDBUF ADDRESS. HEX LOCATION(000022BA) IN CSECT(U7AF2 Y LENGTH (2) 
1103 IBSRD ADDRESS. HEX LOCATION(OQOQOO1FFA) IN CSECT(U7AF2 ) LENGTH(4) 1060 1062 1964 1066 1068 1071 1072 1074 1075 
107 IDLE ABSOLUTE. HEX VALUE(00000002) 1249 RDCTL ADDRESS. HEX LOCATION (000022C6) IN CSECT(U7AF2 ) LENGTH(2) 
517 +519 896 905 9 1095 1104 1112 
1268 IDO0O ADDRESS. HEX LOCATION (00002276) IN CSECT(U7AF2 ) LENGTH(4) 1369 RDO ADDRESS. HEX LOCATION(0000247F) IN CSECT(U7AF2 ) LENGTH(S) 
263 967 1002. 10 37. 1069 1147 (1161 935 1249 
1299 ID1F {ABDRESS. HEX LOCATION (00002372) IN CSECT(U7AF2 ) LENGTH(4) 136 READI ABSOLUTE, HEX VALUE (0000001F) 
1300 ID20 ADDRESS. HEX LOCATION (00002376) IN CSECT(U7AF2 ) LENGTH(4) 124 RICB ABSOLUTE. HEX VALUE (00000013) 
305 IN ABSOLUTE. HEX VALUE (00000023) 1262 RSBA ADDRESS. HEX LOCATION (00002250) IN CSECT(U7AF2 ) LENGTH(2) 
59 INAREA ADDRESS, HEX LOCATION (00001830) IN CSECT(U7AF2 ) LENGTH(10) 0 RO REGISTER. HEX VALUE (00000000) 
698 INTBL ADDRESS. HEX LOCATION (00001B2E) IN CSECT(U7AF2 ) LENGTH(2) 0 R1 REGISTER. HEX VALUE (00000901) 
728 78 79 80 1 85 88 89 92 768 
593 INTER ADDRESS. HEX LOCATION(00001A92) IN CSECT(U7AF2 ) LENGTH(2) 771 #774 777 895 906 916 917 993 995 
700 997. 999 1001 1032 1035 
602 INTES ADDRESS. HEX LOCATION(00001AAA) IN CSECT(U7AF2 ) LENGTH(2) 0 R2 REGISTER. HEX VALUE (9000000 2) 
597 80 86 88 773 774 894 (902 (903 904 
606 INTET ADDRESS. HEX LOCATION(00001AB2) IN CSECT(U7AF2 ) LENGTH(2) 967 1001 1033 1035 1067 1068 1070 1078 1079 
603 1080 1081 1083 1085 1086 1088 
633 INTOK ADDRESS. HEX LOCATION(00001AB6) IN CSECT(U7AF2 ) LENGTH(2) 0 R3 REGISTER. HEX VALUE (00000903) 
699 478 491 494 495 498° 500 557 #49558 #559 
655 INTRX ADDRESS. HEX LOCATION(00001AE6) IN CSECT(U7AF2 ) LENGTH(2) 593. 594 600 604 633 634 #639 652 £684 
650 653 766 767 #=$771 #421783 968 969 970 972 974 
6 36 INTR1 ADDRESS. HEX LOCATION(00001ABE) IN CSECT(U7AF2 ) LENGTH(2) 976 978 980 982 984 986 988 990 1014 
601 05 607 1015 1016 1018 1019 1020 1021 1023 1024 1069 
641 INTR2 ADDRESS. HEX LOCATION(00001ACC) IN CSECT(U7AF2 ) LENGTH(1) 1070 
638 0 R4 REGISTER. HEX VALUE (00000004) 
649 INTR3 ADDRESS. HEX LOCATION(00001ADA) IN CSECT(O7AF2 ) LENGTH(2) 87 93 484 485 488 ° 502 503 505 £506 
646 509 515 523 595 596 598 602 606 635 
689 IOBLK ADDRESS. HEX LOCATION(00001B22) IN CSECT(U7AF2 ) LENGTH(2) 636 637 647 4648 #649 #651 654 #664 666 
504 732 668 671 673 930 937 940 953 957 960 
691 IODCB ADDRESS. HEX LOCATION (00001526) IN CSECT(U7AF2 ) LENGTH(2) 1011 1025 1029 1046 1057 1058 1077 1093 1098 
412 416 86 92 1124 1157 1170 1183 
692 IOMOD ADDRESS. HEX LOCATION (00001B28) IN CSECT(U7AF2 ) LENGTH(2) 0 R5 REGISTER. HEX VALUE (90000005) 
478 481 487 492 494 496 498 514° 521 £4643 £644 ~ 645 
1112 I7AA ADDRESS. HEX LOCATION(0000201A) IN CSECT(U7AF2 ) LENGTH(6) 676 677 679 681 765 778 # £4898 1106 
1115 1120 0 R6 REGISTER. HEX VALUE (00000006) 
1104 I7A1 ADDRESS. HEX LOCATION(OOOO1FFE) IN CSECT(U7AF2 ) LENGTH(4) 490 510 524 #560 665 670 672 #424680 683 
1108 1113 685 730 734 770 775 776 907 931 936 
1110 I7A11 ADDRESS. HEX LOCATION(00002012) IN CSECT(U7AF2 ) LENGTH(6) 938 1007 1009 1013 1042 1044 1048 1056 1096 
1107 1103. 1146 1155 1168 1181 1187 1264 
1114 I7A2 ADDRESS. HEX LOCATION(00002022) IN CSECT(U7AF2 ) LENGTH(6) 0 R7 REGISTER. HEX VALUE (00000007) 
1111 83 90 96 369 493° 497 504 599 640 
797 LINE1 ADDRESS. HEX LOCATION(00001BE0) IN CSECT(U7AF2 ) LENGTH(40) 728 732 763 769 #772 #784 ‘787 «896 908 
768 910 966 1034 1104 1127 1130 1188 1192 1205 
325 LSTIO ADDRESS. HEX LOCATION (000019A8) IN CSECT(U7AF2 ) LENGTH(2) 1265 
490 900 110 893 SBUFF ABSOLUTE. HEX VALUE (00002500) 
1135 MESS ADDRESS. HEX LOCATION(0000206E) IN CSECT(U7AF2 ) LENGTH(2) 902. 903 1110 1174 1116 1119 
1127 63 SERIAL ADDRESS. HEX LOCATION (0009 186C) IN CSECT (U7AF2 ) LENGTH (2) 
1136 MESS1 ADDRESS. HEX LOCATION (00002070) IN CSECT(U7AF2 ) LENGTH(47) 53. 914 919 921 923 25. 1110 1114 «1117 
1135 1257 SEVN7 ADDRESS. HEX LOCATION (000022D6) CSECT(U7AF2 ) LENGTH(2) 
302 MI ABSOLUTE. HEX VALUE (00000020) 984 
651 1256 SIX6 ADDRESS. HEX LOCATION(000022D4) IN CSECT(U7AF2 ) LENGTH(2) 
1090 MOvV1 ADDRESS. HEX LOCATION(00001FD2) IN CSECT(U7AF2 ) LENGTH(6) 982 
1082 222 SKDCB ADDRESS. HEX LOCATION(0000195C) IN CSECT(U7AF2 ) LENGTH(2) 
1080 MOV2 ADDRESS. HEX LOCATION (00001FB2) IN CSECT(U7AF2 ) LENGTH(4) 412 1008 104 
1087 1089 953 SMLF ADDRESS. HEX LOCATION(O00001DF4) IN CSECT(U7AF2 ) LENGTH(2) 
1245 MSCID ADDRESS. HEX LOCATION (000022BE) IN CSECT(U7AF2 }, jLENGTH (2) 945 
1002. 1003 1004 1005 1037 1038 1039 1040 1147 957 SMLM ADDRESS. HEX LOCATION(00001E04) IN CSECT(U7AF2 ) LENGTH(2) 
1148 1150 1151 1161 1163 1167 #1172 #1174 «1177 949 
1180 115 START ABSOLUTE. HEX VALUE(0000000A) 
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55 70 SUPSTAT ADDRESS. HEX LOCATION(000018FA) IN CSECT(U7AF2 ) LENGTH(2) 
951 MSGG4 ADDRESS. HEX LOCATION (00001DEA) IN CSECT(U7AF2 ) LENGTH(4) 782 
920 922 924 1029 TCOO ADDRESS. HEX LOCATION (OOOO1EF6) IN CSECT(U7AF2 ) LENGTH (2) 
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901 1109 1242 TEM P2 ADDRESS. HEX LOCATION (00002258) IN CSECT(U7AF2 ) LENGTH(2) 
1130 MSG4 ADDRESS. HEX LOCATION(00002062) IN CSECT(U7AF2 ) LENGTH(4) 925. 926 927 1117. 1118 1119 
951 1260 TENA ADDRESS. HEX LOCATION(000022DC) IN CSECT(U7AF2 ) LENGTH(2) 
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